Attribute VB_Name = "modMain"
Option Explicit

Sub main()
    Dim objTest As clsResendDir
    Dim strErrMsg As String
    Dim arParams(2) As String
    
    arParams(0) = 12
    arParams(1) = "imv0411"
    arParams(2) = "ian.weatherburn@liberty.co.za"
    
    Set objTest = New clsResendDir
    If objTest.ResendDirective(arParams, strErrMsg) Then
        MsgBox "It worked!"
    Else
        MsgBox "Didn't work cos: " & strErrMsg
    End If
    
    Set objTest = Nothing

    
End Sub
